home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pofo / sprachen / pbasic / pbas30 / 2curve.bas < prev    next >
Encoding:
BASIC Source File  |  1991-08-22  |  340 b   |  22 lines
  1. cls
  2. print "2CURVE.BAS (c) R. Kunstadt 1990"
  3. print 
  4. print "Press RTN to start. To bring"
  5. print "up DOS when done, press RTN."
  6. input "",a
  7. REM draw first curve
  8. cls
  9. screen 4
  10. for y = 1 to 61
  11. x = (abs(y-60))^2 / 15
  12. pset (x,y)
  13. next y
  14. REM draw mirror image
  15. for y = 1 to 61
  16. x = y^2 / 15
  17. pset (x,y)
  18. next y
  19. alarm
  20. screen 7
  21. system
  22. ə